home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / pvm34b3.zip / pvm34b3 / pvm3 / libfpvm / pvmfpack.m4 < prev    next >
Text File  |  1997-07-22  |  883b  |  49 lines
  1.  
  2. /* $Id: pvmfpack.m4,v 1.2 1996/10/04 15:27:24 pvmsrc Exp $ */
  3.  
  4. #include "pvm3.h"
  5. #include "pvm_consts.h"
  6.  
  7. void
  8. FUNCTION(pvmfpack) ARGS(`what, vp, cnt, std, info')
  9.     int *what, *cnt, *std, *info;
  10.  
  11. #ifdef __STDC__
  12.     void *vp;
  13. #else
  14.     char *vp;
  15. #endif
  16. {
  17.     switch( *what )
  18.     {
  19.     case BYTE1:
  20.         *info = pvm_pkbyte((char*)vp, *cnt, *std);
  21.         break;
  22.     case INTEGER2:
  23.         *info = pvm_pkshort((short*)vp, *cnt, *std);
  24.         break;
  25.     case INTEGER4:
  26.         *info = pvm_pkint((int*)vp, *cnt, *std);
  27.         break;
  28.     case REAL4:
  29.         *info = pvm_pkfloat((float*)vp, *cnt, *std);
  30.         break;
  31.     case COMPLEX8:
  32.         *info = pvm_pkcplx((float*)vp, *cnt, *std);
  33.         break;
  34.     case REAL8:
  35.         *info = pvm_pkdouble((double*)vp, *cnt, *std);
  36.         break;
  37.     case COMPLEX16:
  38.         *info = pvm_pkdcplx((double*)vp, *cnt, *std);
  39.         break;
  40.     case STRING:
  41.         *info = pvm_pkbyte((char*)vp, *cnt, *std);
  42.         break;
  43.     default:
  44.         *info = PvmBadParam;
  45.         break;
  46.     }
  47. }
  48.  
  49.